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"Feettter: RMS 
Abstract: 


This module communicates with the File Access Listener (FAL) at the 
remote node to perform the search function. 


Environment: VAX/VMS, executive mode 


3 Author: James A. Krycka, Creation Date: 10-SEP-1979 
Modified By: ) 

0 vVO3-005 JAKO138 cka 28-MAR-1984 

0 Call modified NTSEXCH NF routine with a parameter. 
0 v03-004 JEJ0015 Johnson 26-Mar-1984 


‘ie 8 
NTSSEARCH to Look for NAM$V_SRCHXABS in NOP field as 


annrt-»> >>> > YY YP YP YY YY YY Y>Y>>?>rYr YY Yr Yr Yr Pr Pw. 


Update to support DAP V7.0 message exchange sequence. 


DAL WN OS ODNAUE WN 9 ODNOA UNE WIN 0 ODNAU EWN 0 OD NOU EW OOONOUE Wn 


PUPA BS BE BE EE EWA AWIWI NINA AI PPO NPONINININIPIDD 2 2 PO OO OO 


0 
00 Rodi ty 
38 the signal to return XAB information on a $SSEARCH operation. 
000 v03-003 goxoiie J_A Krycka 23-JUN-1983 
4 Fix bug in v03- od2" 
33 v03-002 KRMO111 K Malik 31-May-1983 
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NTOSEARCH NETWORK SEARCH FILES 16-SEP-1984 00:08:05 VAX/VMS Macro v04-00 Page NT 
v04 DECLARATIONS ety 7 90:98:88 RMS.SRCINTOSEARCH.MAR; 1 . 3) Sy 
28 -SBTTL DECLARATIONS | | 
60 ; Ni 
61 ; Include Files: NW 
66 ; NW 
6 NW 
64 SDAPPLGDEF : Define DAP prologue symbols NW 
0 65 SDAPHDRDEF 3; Define DAP message header NW 
0 66 SDAPCNF DEF 3 Define DAP Configuration message Nw 
00 6 SDAPATTDEF : Define DAP Attributes message NW 
00 68 SDAPACCDEF 3 Define DAP Access message NW 
8 9 SDAPCONDEF ; Define DAP Continue Transfer message NW 
0 SDAPNAMDEF ; Define DAP Name message NW 
44 71 $F ABDEF ; Define File Access Block symbols NW 
00 ie SFWADEF ; Define File Work Area symbols Nw 
0000 7 $1° BDEF ; Define IFAB symbols NW 
0000 74 SNAMDEF ; Define NAM block symbols Nw 
0000 75 SNWADEF ; Define Network Work Area symbols NW 
0000 76 SRMSDEF ; Define RMS completion codes Nw 
0000 77 SSSDEF ; Define system service codes NW 
0000 78 NW 
0000 79 ; NW 
0000 80 ; Macres: NW 
0000 81 ; NW 
0000 Hf 3 None Nw 
0000 83 ; 
0000 84 ; Equated Symbols: 
0000 85 ; 
0000 86 
0000 87 ASSUME DAPS$Q_DCODE_FLG EQ 0 
0000 «88 ASSUME NWASQ"FLG EO 0 
0000 89 
0000 90 ; 
0000 91 ; Own Storage: 
0000 38 3 
0000 93 ; None 
0000 94 ; 
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~SBTTL NTSSEARCH = PERFORM NETWORK SEARCH FUNCTION 


NTOSEARCH NE 
v04- NT 


m 
‘> 
zDD 


wa 
“ 
m 
rw 
ar 
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3o¢ 
; NTSSEARCH = engages in a DAP dialogue with the remote FAL to obtain a List 
of directory entries that match a given (wildcard) file specification. 


The first call if? NTSSEARCH causes RMS to request that FAL perform the 
DAP qirecteryet st function and returns the resultant name string of 
the first e that matches the expanded name string template. 
Thereafter, each call to NTSSEARCH returns the resultant name string 


of the next match until no more files are found or an error occurs. 
Further, if the NAMSL_NOP field has the NAM$V gS RCHEARS bit set then the 
and certain XABs Chained to it will be up dated. | is is done ae 
rite ts the DIRECTORY utility which would otherwise hess to open e 
e to Syters its attributes, causing a separate invocation of FAL tes 
he 
Calling Sequence: 
BSBW NTSSEARCH 


Input Parameters: 


RO First- ea flag in bitO (0=no, 1=yes) 
R8 FAB addres 

R10 FWA address 

R11 Impure Area address 


Implicit Inputs: 


DAPS$Q_SYSCAP 
DAPey. sine ONLY 


NWASV_F TM_CONT 
Output Parameters: 
RO Status code (RMS) 
R1i-R7 Destroyed 
AP Destroyed 
Implicit Outputs: 
FWASQ_QUOTED 
FWASV_REMRESULT 
NWASV_FTM_CONT 


Completion Codes: 


COOOCOCOCSCOOSSOSOSOSSSSOSOSOSOSOSOSOSOOOOSOSOSOSOSOSOOOSO OOOO OOSOOSoOO 
OOOOCOCOCOCOSOOOSOSOSOSOSOSOSOOCOSOSOSOSOSOOSOOSOOOOSOOOOOOOOOOOOOO 


SOOCCOCSOOCOSOSOOCOSOOS SOS OOOCOOSOSOSOOSSOOCOOCOOSOOCOOCOOOOOOOOOOOOOONMOOO IM 


Standard RMS completion codes 


R9 1FAB eaerese 
| 
Side Effects: 


ee a 2 = — 4 — 4 4 2 a 4s — bs bs — 9 2s 2 = 2» 2s Ys os a ts a a a ts st 


PVD BBB BB BEF EWN. PIPINDINININININID 2 4 9 PS S| SDOOOOOOCOCOCOOOOO MIX 


RO ODA UNE WWI M$ OOO NA UNE WIN SO ODO NAUE WIN 9 ODO NOA UE WIN 0 DOONAN EWI O OOO 


SOOCSCSCOCOCOOOOOOCOOCOSOOOOO OO OOOO OSOOOOCOOOSOOOOOOOOOCOOOOOOOOOOOOOOo 


SCOoOooooooooo 
Sooooooooooo 
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v04- NISSEARCH = PERFORM NETWORK SEARCH FUNCT ety 98 9F 508 YAMS SRCINTOSEARCH MAR; 1 . 
153 ; None 
154; 
139 NTSSEARCH:: 3; Entry point 
0 138 STSTPT NTSEARCH ; 
57 3€ a9 D0 0006 15 MOVL ent NWA_PTR(RY) ,R7 ; Get address of NWA (and DAP) 
OOA 160 SCLRBIT #FWAST_REMRESULT,(R10) ; Say no resultant name string received 
1¢ 50 —s«EB Bo 161 BLBS RO, SENB_CNF ; Perform set-up with FAL if this is 
001 196 3; _the first call to S$SEARCH 
oe % E5 0011 16 BBCC #NWASV_FTM_CONT,(R7),- ; Branch if previous search call was a 
7 Bete 164 RECV_NAM ; complete success and clear flag 
Be ie. 
0015 189 ; Build and send DAP Continue Transfer message to partner to skip to next 
0015 168; ai vestery entry following receipt of a DAP (error) Status message. This code 
0015 192 3 segment is entered iff the previous call to SSEARCH resulted in an error 
0015 170 ; (except RMS$_NMF) or a partial success (i.e., the file name was returned 
0015 171 ; without the requested file attributes because FAL was unable to open the 
0015 ve 3 file.) 
0015 173 ;:- 
0015 174 
0015 175 SEND_CON: ; (required to continue after error) 
0015 176 SSETBIT #NWASV_LAST_MSG,(R7) ; Declare this last message to block 
50 05 p0 0019 177 MOVL #DAP$K~CON_ASG,RO ; Get message type value 
FFE1" 30 OO1C 178 BSBW NTSBUICD HEAD ; Construct message header 
85 02 90 OO1F 179 MOVB #DAPSK_SRIP_REC,(R5)+ ; Store CONFUNC field 
FFDB‘ 30 0022 180 BSBW NTSBUICD TAIL 3 Finish bui Lding message 
FFD8’' 30 0025 181 BSBW NTSTRANSAIT : Send Continue Transfer message to FAL 
13 50 €9 0028 ies BLBC RO,FAIL1 ; Branch on failure 
5A 11 0028 18 BRB RECV_NAM ; Continue now that DAP stream from FAL 
002D 184 ; has been restarted 
002D 185 
002D 186 ;+ 
80 . + t4 3; Exchange DAP Configuration messages with FAL and determine DAP buffer size. 
002D 189 
002D 190 SEND_CNF: ; (required message on first pass) 
50 06 R° 88 D 191 MOV #DAPSK_DIR_LIST,RO ; Denote type of Tile access 
FFCD' 30 00 ° 136 BSBW NTSEXCA_CNF 3 Exchange Configuration messages 
08 50 «ED 3 19 BLBC RO,FAILT : Branch on failure 
19 €0 SH) 194 BBS #DAPSV_DIRECTORY,- 3; Branch if remote FAL supports 
28 A? 0038 195 DAP$Q_SYSCAP(R7) ,- ; directory-list function 
04 BRA 138 BUILD MASK 3 
FFC2" 30 B 19 BSBW NTSRMT_ACCFUNC ; Declare RMS$ SUPPORT error 
05 OO3E 198 FAIL1: RSB 3 Exit with RMS code in RO 
0 : +44 
3¢ 
6 F $4 3; Build eteplay field request mask which will be used in the Access meneeee 
O3F 8 ; to request that optional DAP messages be returned by FAL. For SSEARCH, these 
O3F 3; are the ATT, PRO, SUM, and TIM messages. (The Attributes message will supply 
0 : Be 3; information to update both the FAB and the FHCXAB.) 
60 F Og 3; Note: The FAB and XABs are not documented as outputs from $SEARCH. This 
O3F or 3 information will be returned iff the NAMS$V_SRCHXABS {tag is set in the 
3 F +3 3 NOP field. It is expected that only the DIRECTORY utility will request 
F 9; this additional output to avoid opening each file to obtain its file 
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attributes, which would be very 
XAB information can 


an additional FAL for each file 


UILD_MASK: 
CLRL 4 
MOVL FABSL_NAR(RE) JRO 
BBC #NAMSV_SRCHXABS , = 
NAM$B_ROP(RO) , 108 
BSBW NTSSCAN_XABCHN 
BLBC RO, FAIL 
BICW2 #<<DAP$M_DSP_KEY>!- 
<DAPSM_DSP_ALL>!- 
0>,R2 
BISW2 #DAPSM_DSP_ATT,R2 
10$: MOVW R2,NWASW_DISPLAY(R7) 


: Note that the filespec used is 
3; previous call to SPARSE. 


SSETBIT #NWASV_LAST_MSG, (R7) 
MOVL #DAPSK ACC ASG. .RO 


BSBW NTSGET_FILESPEC 
MOVZWL NWASW_DISPLAY(R7) ,R1 
BEQL $ 


8 
10$: BSBW wTseuiCd 
BLBC RO, FAIL 


network search is sapseneneee using the D 
e requested on search, thus requiring only one 
remote FAL to be active for network directory operations. 


Note: Utilities Like COPY that do a SPARSE, SSEARCH-S$OPEN, SSEARCH-SOPEN, etc. 
on wildcard operations, will invoke one FAL for all search requests and 


AX/VMS Macro V04-00 Page 


dt 4 90:98:03 y 
NETWORK SEARCH FUNCT “SEP-1984 16:21:09 CRMS.SRCINTOSEARCH.MAR; 1 


very sosthy in a network context. Since 
AP directory_list operation, 


subsequently opened. 


; Build NWASW_DISPLAY 

; Initialize request mask 

; Indicate this is not a close operation 
; Get NAM block address 

3; If NAM block is not present, or the 
; network specific search flag is not 
3 set, then ignore XABs in chain 

; Scan user XAB chain and check FAL's 
; capabilities; request mask put in R2 
3; Branch on failure to complete scan 

3 ignore Key Definition and Allocation 
$ ABs in chain 


Request Attributes message to get 
information for FHCXAB and FA 
; Save request mask 


; Build and send DAP Access moqsege to partner. 
he expanded name string generéted from a 


(required message on first pass) 
Declare this last message to block 
Get message type value 

Construct message header 

Store ACCFUNC field 

Store ACCOPT field 

Store FILESPEC field as a counted 
ASCII string 

Get request mask 

Branch if nothing set 

Store dummy FAC and SHR fields | 
Store DISPLAY as an extensible field 
Finish building message 

Send Access message to FAL 

Branch on failure 


B 8 
wioseancn NETWORK SEARCH FILES 1 mi 9 90:06:03 AX/VMS Macro V04-00 Page 
v04-" NTSSEARCH = PERFORM NETWORK SEARCH FUNCT 5-SEP-1984 16:21:09 CRMS.SRCINTOSEARCH.MAR; 1 
087 59 ;+ 
087 60 ; Receive next DAP Name message (or Access Complete message) from partner. 
087 61 ; One, two, or three Name messages may be received with the sequence terminated 
S if 6¢ : by a (file) Name message. 
7 64 ; In addition, receipt of an Access Complete sessage signals normal gongs et ten 
S 4 66 ; of the search (DAP directory-List) function and is mapped into RMS$_NMF. 
087 267 ° 
8 7 68 RECV_NAM: ; (required message sequence) 
1¢ A? 00008080 8F C8 0087 $? BISL2 #<<1@DAPSK_NAM_MSG>!= ; Expect response of either Name 
iH 9 <1QDAPSK_CMP_MSG>!= ; or Access Complete message 
O8F 27 O>,DAPSL_MSG_MASK(R7) — ; 
FFOE' 30 OOBF es BSBW = NTSRECEIVE : Get reply from FAL 
98 50 5? 95 7 BLBC RO,10$ ; Branch on failure 
0 A? 1 009 74 CMPB DAP$B_TYPE(R7),- ; Branch if Name message 
OF 0098 275 #DAPSR_NAM_MS ; 
06 13 0099 76 BEQL MERGE _NAM ; It returns to RECV_NAM iff 
0098 77 : resultant name is still incomplete 
00E4 31 0098 78 BRW SEARCH_ENDED ; It must be Access Complete or 
009E 79 ; _incorrect (success) Status message 
0158 31 OQO9E 80 10$: BRW FAIL4 ; Branch aid 
00A1 81 
QOA1 6 3+ 
QOA1 285 ; A Name message has been received and decoded in the DAP control block. 
00A1 84 ; The new name string is merged into the existing (partial) resultant name_ 
Q0A1 85 ; string and control is returned to RECV_NAM unless the Name message contains a 
Q0A1 86 ; filename string which completes the resultant name string. 
QOA1 287 ;- 
00A1 +4 
QOA1 89 MERGE _NAM: ; ; 
50 44 A7 7D Baal 4 MOVa DAPSQ_NAMESPEC(R7),RO ; Copy name descriptor to <R0,R1> 
OO0A5 444 ASSUME DAPSV_FILSPEC EQ 0 
00A5 29 ASSUME DAPSV~FILSPEC+1 EQ DAPSV_FILNAME 
00A5 294 ASSUME DAPSV~FILNAME+1 EQ DAPSV_DIRNAME 
00AS 295 ASSUME DAPSV_DIRNAME+1 EQ DAPSV_VOLNAME 
Beas $38 ASSUME DAPSV_VOLNAME+1 EQ DAPS$V_DFTSPEC 
05 00 EA OQOA5 298 FFS #0, #DAPSV_DFTSPEC+1,- ; Convert NAMETYPE field bit offset 
52 40 A7 00AB 299 DAPSB_NAMETYPE(R7),R2 ; to a value 
O00AB 00 SCASEB SELECTOR=R2- : Type of name string: 
O0AB 01 DISPL=<- 3 
goae 8 10$- : FILSPEC -- error 
AB «30 FIL_NAM- > FILNAME 
OOAB 04 DIR_NAM- : DIRNAME 
OOAB 05 VOL_NAM- ; VOLNAME 
Bpae s) ‘ 10$- ; DFTSPEC -- error 
FF44* 31 008 08 10$: BRW NTS$BUG_NAME TYPE ; Declare RMS$ BUG_DAP error and 
0OBC 09 > exit with RAS code in RO 
OOBC 10 
BC 11 ;¢ 
BC \ ; Process (volume) Name message. 
OBC 13 3° 
OBC 14 ; : 
oBCc 15 VOL_NAM: ; Save device (volume) Name string 
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H FILES 1 “360-1386 9 
ERFORM NETWORK SEARCH FUNCT ~SEP-1984 

1 MOVL RO, FWASQ_QUOTED(R10) 

1 MOVW RO,NWASW-DIR_OFF(R7) 

1 aFWASQ_QUOTED+4(R10) 

0 BRB RECV_NAM 

z* 

; Process (directory) Name message. 

5 

§ DIR_NAM: 

MOVZWL PARY BIR OFF CRT) AS 

8 ADDLS RO,R4,R 

9 MOVL R5,FWA$Q_QUOTED(R10) 

0 OVW RS5,NWASW-FIL_OFF(R7) 

; aFWASQ_QUOTED+4(R10)(R4] 
3 BRB RECV_NAM 
34 
35 3+ 
$$ ; Process (file) Name message. 
38 
39 FIL_NAM: 
40 MOVZWL NWASW_FIL_OFF(R7) ,R4 
41 ADDL3 RO,R4 FWASQ_QUOTED(R10) 
4¢ movc3 RO, (RI), = 
4 @FWA$SQ_QUOTED+4(R10)(R4] 
44 SSETBIT #FWASV_REMRESULT, (R10) 


:05 VAX/VMS Macro v04-00 p 
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Update descriptor Length 

Update offset for directory string 

Copy volume name string to 
resultant name string buffer 

Get next name string component 


Save directory name string 


; Get offset to use 


Compute new offset 
Update descriptor Length 
Update offset for file name string 
Append directory name to 
resultant name string buffer 
Get next name string component 


Assemble resultant name string 

Get offset to use 

Update descriptor length 

Append file-type-version name to 
resultant name string buffer 


; Flag receipt of resultant string 


00 
00D0 C7 
1C A? «00000084 8F 


04 64 A? 06 


51 0000 ¢7 
52 


00D4 fr 
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poserze DAP Attributes message from partner and update the user FAB and 


In addition, receipt of an Access Complete nosnege signals normal gongs etten 
of the search (DAP directory-List) function and is mapped into RMS$_NMF. 


Note: The user XAB chain is scanned again to probe all user XABs to protect 
R from a user who deletes the address space where an XAB was 
previously found. 


(optional--must be requested) 
Branch if Attributes message 
was not requested 


RECV_ATT: : 
BBC #DAPSV_DSP_ATT,- 
NWASW_BISPCAY(R7),- 
Cv_EXT_AT 


a T 
BISL2 #<<1SDAPSK_ATT_MSG>!- 
<1@DAPS$K~ CMP-MSG>! = 
0> ,DAP$L_MSG_MASK(R7) 
BSBW NTSRECEIVE 


Expect response of either Attributes 
or Access Complete message 


BLBS Branch on success 
BRwW FAIL3 ; Branch on failure 
5$ CMPB DAP$B_TYPE(R7),=- ; Branch if not Attributes message 


#DAPSR_ATT_MSG ; 
BNEQ SEARCH_ENDED ; It must be Access Complete or 
incorrect (success) Status message 
#DAPSV_FLK,DAPSL_FOP1(R75,1 


Denote FOP FLK bit set 
Indicate this is not a close operation 
Scan user XAB List again 
Branch on failure to scan XABs 
Check for undefined record format 
; Update user FA 
; Update user FHCXAB 


BBC 

peg rere SUAGY FOP PLR, (RP) 

BSBW NTS$SCAN_XABCHN 
RO,FAIL2 

BSBW MOD_RFM_ RAT 


BSBW  —: UPDATE _FAB 
BSBW = NTSUPDATE_FHC 


; Get reply from FAL 
10$: : 


+ 
Receive DAP Extended Attributes messages from partner and update the user 
DAT, PRO, and SUM XABs. These messages may be received in any order. 


In addition, receipt of an Access Complete message signals normal goneletren 
; of the search (DAP directory-list) function and is mapped into RMSS_NMF. 


. 
° 
7 
° 
. 
e 
. 
o 
. 
o 
° 
‘= 
° 


RECV_EXT_ATT: : Coptional--must be requested) 
ROVZWL NWASW_DISPLAY(R7) ,R1 ; Get DAP message request mask 
CLRL R2 ; Clear valid messages to receive mask 
SMAPBIT DAP$V_DSP_PRO,DAPSK_PRO_MSG; Map request for Protection message 
SMAPBIT DAP$V_DSP_SUM,DAPSK_SUM_MSG; Map request for Summary message 
SMAPBIT DAPSV_DSP_TIM,DAPSK_TIM_MSG; Map fyguees for Date and Time msg 
MOVL »NWASL_ASG_MASK(R7) ~; Save valid message mask for use again 
LOOP: MOVL NWASL_MSG_MASK(R7),- ; Expect response of any of these DAP 
DAPSL_MSG_MASK(R7) 3; _messages 
SEARCH_SUCCESS Branch if no more to receive 


BEQL z ; Branch 
SSETBIT #DAPSK_CMP_MSG,DAPSL_MSG_MASK(R7) 


; Access complete is also valid 
BSBW prea trie ; Get reply from FA 
BLBC RO, FAIL 


:; Branch on failure 


H FILES 
ERFORM 


CMPB 
BEQL 
ASSUME 
ASSUME 
ASSUME 


10$: PUSHAB 
SCASEB 


1 - 
NETWORK SEARCH FUNCT 8 


$ 
§ 
DAP$B_TYPE(R7 
#DAPSR_CMP_MS 
SEARCH-ENDED 


DAPSK_SUM_M 


-SUM_MSG EQ \ 
DAPSK_TIM_MSG EQ 1 
SG EQ 14 


DAPSK-PRO_M 


B*LCOP 
SELECTOR=DAP$B_TYPE(R7)= 
BASE=#DAPSK_SUR_MSG- 


=<e- 
NTSDECODE_SUM- 
NTSDECODE-TIM- 
NTSDECODE-PRO- 


EP-1986 fo:et 09 
) 
G 
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; Branch if Access Complete message 


Page 


; Push return address on stack 
; Dispatch to process message: 


Summary message 
Date and Time message 
Protection message 


3 
4 
: 
08 
09 
10 
Y 
13 
14 
12 
13 
18 
YP 3 
$6 : This call to SSEARCH has found no more files; the search sequence has 
3 ; terminated. 
4 e 
$? Success path for no more files 
27 
28 
$3 
0 
3 
33 
$e 
5 
36 
37 
38 
39 
40 
41 
4 


Convert Access Complete —eeees 
e 


SEARCH_ENDED: 3 
RMSERR 3 
3; _into no-more-files status co 


NMF 
05 


FAIL2: RSB Exit with RMS code in RO 


5? 
3; This call to SSEARCH has found a match; a resultant name eteine has been 
3; returned and user control blocks have been updated per CTX field. 


SEARCH_SUCCESS: ; Success path for next file found 


g¢ 
3; Receive DAP Acknowledge message from partner. 


mm 
fale leleleleleleleleleleleleolelalalelelolelelelelelelelelelelelelelelelolclelelelelelalolalal ala) 
ataiwdisdsdaaiabwdbmdimadabtuwiaatatb dao Bdobabaabab iabababaibaibiababababaiabababababababaiabad 

DNS — $F 000000. 00 09 69 09 09 09 09 09 09 09 09 NI NIPUPOPIPUPIPINPID SII SININNIN EE BELEN 


RP PDD de bet 9 6 4 4 4 4 tt 8 0 8 ot eet gt et RRP PEPE PLN D % 


RECV_ACK: ; Acknowledge message required if 
0B 67 26 €1 4g BBC #DAP$V_GEQ_V70,(R7),10$ ; per toner uses DAP since V7.0 
SSETBIT #DAPSK_ACK_MSG,DAPSL_MSG_MASK(R7) 
444 3; Expect response of Acknowledge message 
FE6C* 30 445 BSBW NTSRECEIVE ; Get reply from FAL 
0750 =€9 44 BLBC ’ : Branch on failure 2 
67 12 €4 447 10$: BBSC #NWASV_FOP_FLK,(R7),- ; Map FOP FLK bit returned by FAL into 
4D 448 ERRACC 3; _partial success (SS$_FILELOCKED) 
449 RMSSUC ; Return success 
05 450 20$: RSB ; Exit with RMS code in RO 


F 8 
wrospance NETWORK SEARCH FILES 1 ~$Ebn 1386 90:08:08 AX/VMS Macro V04-00 Page 
v04- NTSSEARCH = PERFORM NETWORK SEARCH FUNCT “SEP-1984 16:21:09 CRMS.SRCINTOSEARCH.MAR; 1 
19F 128 3+ 
19F 455 ; An error has occurred while trying to obtain the attributes of the file. 
19F tee ; Determine whether to return the error or whether to return success with an 
19F 455 ; appropriate system service code in STV. The latter denotes partial success 
19F $28 3; and that the search can be resumed. Note that the DIRECTORY utility examines 
19F 457 ; the error code in the STV to decide whether to terminate the directory 
19F $28 ; operation or to continue issuing SSEARCH calls (i.e., whether or not the 
19F 459 ; error condition is fatal). 
ee 
828A 8F 35 sf ie re) FAILS: oo RO, #<RMSS$_FLKG“XFFFF> ; Map file locked error 
829A B&F 23 a tee rhe: Hy RO ee eee : Map privilege violation 
C002 8F $6 a} 8188 188 cHPY RO, #<RMSS_ACCE“*XFFFF> : Map file access error 
COCC 8F 50 a 6189 re apy RO a ree 3 Map read attributes error 
874C 8F 29 B1 0188 470 CMPW RO,#<RMSS_NET@“*XFFFF> 3 Check for general network error 
3 12 OIC 471 BNEQ FA ; Fatal error if no match 
40E7 BF OC “* a oie A yk Seber ee ee ; Map read attributes error 
40E9 BF OC . Bt BicA are kor +S healt : Map privilege violation 
4O0EA 8F OC AB BI B1D¢ 476 CMPW FABSL_STV(R8),#*X40EA ; Map no attributes for file error 
1F 12 QD 477 BNEQ FAIL4 ; Fatal error if no matc 
51 0888 of + Ripe $78 ERRATR: Se tM tard Tr teed ; Generate SS code for RMS$_ATR 
51 0800 gf 3¢ O1e! 480 ERRFLK: MOVZWL #SS$ ACCONELICT RI Generate SS code for RMS$_FLK 
51 O8A8 Bf + Bee rt ERRACC: ROveM. esse tf ICELOCKED.R1 ; Generate SS code for RMS$_ACC 
51 24 3C BieS tee ERRPRV: MOVZWL #SS$_NOPRIV,R1 ; Generate SS code for RMS$_PRV 
O1F 486 ;+ 
te 487 ; Return partial success to the user on call to S$SEARCH (i.e., STS = RMS$_SUC 
pies 488 ; and STV = SS$_errorcode). 
gs 383 & 
aie 22 ASSUME FABSL_STS+4 EQ FABSL_STY 
O1F 198 PARTIAL_SUCCESS: ; 
O1F 494 RM ; Return success 
08 A8& 50 7D OIF 495 MOVQ RO, FABSL_STS(R8) ; Update FABSL_STS and FABSL_STV 
gre 88 
01F9 498 ; If FAL returned an error via a DAP Status message, then set a flag to denote 
Biee 499 ; that the next call to SSEARCH must send a DAP Continue Transfer message to 
a 289 3 restart the DAP directory-list operation at the remote node! 
1F9 , 
30 A? 91 ag 208 FAIL4: CMPB DAP$B_TYPE(R7),- ; Branch if reply from FAL was not a 
0° 12 pire $03 nai #DAPSR.STS_ASG ; Status message 
OFF Og SSETBIT #NWASV_FTM_CONT,(R7) ; Denote Continue Transfer msg required 
05 0203 507 10$: RSB ; Exit with RMS code in RO 
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4 09 .SBTTL UPDATE_FAB 
r 1? . ;++ 
2 \¢ i ; Update the user FAB from the the Attributes message. 
. 2" 
: 16 UPDATE _FAB: 3 Entry point 
4 1 
8 3 18 Process the DAP ORG, MRN, BLS, RFM, and RAT fields. 
4 0° 
1D AB 45 A7 90 8 oe 1 MOVB DAP$B_ORG(R7) ,FAB$B_ORG(RB) 
00 45 a 4 8 4 § tg DAPS$B_ORG(R7), ;WDAPSR SEQ; Branch if SEQ organization 
10 45 a 7 0 of : ee DAPSB_ORG(R7) , #DAPSK_REL: Branch if not REL organization 
38 AB SB NM 06 13 3 $ MOVL DAPSL_ MRN(R7) , FABSL =MRN (RB) 
3C AB «48 AZ) «OBO «C(021C)=—s 4528 (108: MOVW DAPS$W_BLS(R7) ,FABSW _BLS(RB) 
1F AB 46 A7. 90 0221 529 20S: MOVB DAPSB RFM(R7) ,FABSB_RFM(RB) 
FDD7" 30 0226 530 BSBW NTSMOB_RAT 3 Modify RAT bits returned from FAL 
0229 531 ; as required 
1E AB «47 AT) O90 i 9 338 MOVB epee aateats jaate, earch 
O22—E 534; 
O22E 535 ; Process the DAP MRS, ALQ, BKS, FSZ, and DEQ fields. 
$556 839 
36 AB «4A AT) OBO COO ¢f 538 MOVW §DAPSW_MRS(R7) ,FABSW_MRS(R8) 
10 AB 4=4C A? «=O OO 539 MOVL DAPS$L~ALQ1(R75,FABSC_ALQ(R8) 
3E AB «2650 A?) «690 «20238 ~=—— 5540 MOVB DAPSB “BES (RI) -FABSB_BKS (RS) 
3F AaB O51 A? O90 6 3p 0 541 MOVB  DAPS$B~FSZ(R7) ,FABSB_FSZ(R8) 
14 a8 54 47 BO 4g 248 MOVW  DAPSWIDEQ1(R75 ,FABS@_DEQ(R8) 
oe 
0247 545 : Process the DAP FOP field. 
Td 
51 64 A7 00 6 47 548 MOVL DAPSL_FOP1(R7),R1 : Get DAP FOP bits 
52 D4 0248 549 CLRL R2 3; Clear resultant FOP bits 
0 4D 550 SMAPBIT DAPSV_CTG,FABSV_CTG ; Map CTG bit 
025 551 SMAPBIT DAP$V~CBT.FABSV_CBT : Map CBT bit 
9 30 3g SMAPBIT DAPS$V~RCK,FABSV_RCK ; Map RCK bit 
6 5 SMAPBIT DAPSV~WCK,FABSV-WCK : Map WCK bit 
04 AB 00800200 BF CA 0260 554 BICL2 #<<FABSM_CT : Clear FOP bits in user FAB 
8 75 223 <FABSM_CBT>!- 3; that may be updated 
75 26 <F ABSM_RCK>!- : 
7> >> <FABSM_WCK>!- 3 
0 to 358 0>, FABSL~FOP(R8) ; 
046 a8 52 CB 0275 5 BISL2 R2,FABSL~FOP(R8) ; Update FOP field 
05 0279 £560 RSB 3 Exit 


j 


H 8 
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62 ;++ 
7A 8 ; Check for undefined record format returned from a ‘stream-only' machine. If so, 


gh rf ; convert UDF to STM in the RFM field and return CR in the RAT field. | 
7A 96 
7A 67 MOD_RFM_RAT: ; Entry point 
43 67 3 3 7A 68 BBC #DAPSV_STM ONLY» (RZ) 1085 Branch if not ‘stream-only’ machine 
0 46 A 1 7 4 CMPB DAPSB_RFM(R7) ,ADAPSK_UDF; Since no Attributes message was sent 
ie 0 0 BNEQ 10$ ; to remote to specify record format 
46 A7 04 90 0284 71 MOVB #DAPSK_STM,DAPSB_RFM(R7); (as done on open), convert UDF to STM 
47 a7 02 90 0288 i MOVB #DAPSM_CR,DAP$B_RAT(R7) ; Also declare implied carriage control 
05 0 aC 73 10$: RSB ; Exit 
028D 74 
0280 75 «END ; End of module 
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eng ee bs ae 9 90:98:08 RMS.SRCINTOSEARCH.MAR; 1 , 
Symbol table | 
$$.PSECT_EP = 90000009 DAPSL _ATTHENU 
SScne test n A DAPSL-CRC_RSLT 
ssene : i DAPSL“DCOBE STS 0 | 
SSRme TRUCE HE 8 APSL-DEV ~ 00 § | 
$SRMS~TBUGCHK = 0000008 nPSL “DEV 3 
BUILD iF a 01 DAP$L_FOP1 00 3 $i | 
BAPEB-ACCFUNC iit DAPSL-HBK 0000074 | 
ren se BEE ua sas 
OPES ees Mitte APSL SBN" 000007¢ 
“Bs? 00005 DAPSL“SSPWA 000080 | 
bAPEB-CONF UN 29900% PAP SN-OTTENT = 09000008 | 
Sersoias Sash Havent : ai 
See te prove ne S09800TR DAPSR-DFTSPEC = 00000010 
APEBTDECUER itttitd i DAP$M~DMO = 00002000 
arte tttnan §o0n004s DAPSM~DSP_3NAM = 90000200 
APSeFA 0000004 DAPSM~DSP7ALL = 60000004 
DAPSBTF IL $oc00048 DAPSM_DSP_ATT = 00000001 
Syren te 0000031 DAPSM~DSP~KEY = 00000002 
PAPSe ES” §0090031 DAPSM~EMBEDDED = 00000010 
reat §0090034 DAPSM7GET = 90000002 
SAP ES-LENGTA §0900033 DAPSM~GO_NOGO = 0000001 
SAP SE -HANETY So0n00% DAPSM” IMAGE = 90000002 
enone ee 44 94 DAPSMLSA = 0000004 
DAPSB "OST $09004 DAPSM"MACY11 = 00000080 
DP SB RAT ities DAPSM-MSE = 00000010 
SAP Se REP §000054 DAPSM "NONFATAL = 00000001 
PAP SE SHR $0080048 DAPSM~SEGMENT = 00000040 
APSBo ST §090008 DAPSM-THP1$ = 00000020 
PAPSB TYPE $0 000036 DAPSM~TMP2$ = 900900¢0 
DAP SB-USRA So0000z6 DAPSH-TMPS$ = 00020000 
APSE UR §0980048 DAPSM"TMP4$ = 01000000 
SAP SB VERNUM Boopoode DAPSM~TMPS$ = F0000000 
PAPSBTK $o09b0s4 DAPSM-ZERO = 00000080 
yvonne iti DAP$Q~DCODE_FLG 00000000 
ete ti $0080008 DAPSQ~F ILESPEC 00000044 
PASE TACK Fis = 0900000 DAPSQ"MSG. BUF 1 00000008 
yiteniertts atti DAPSQ"MSG~BUF 2 00000010 
DAPSE-BLNT a itt DAPSQ"NAMESPEC 00000044 
BA -BuN = tit ts DAP$Q~ PASSWORD 00000050 
DAP Sk CONT Nec : 5 DAPSQ-RUNSYS 0000005 | 
DAPEKTDG RTL TS = §0000008 DAP$Q~SYSCAP 2 | 
yrs dt ane 0000001 DAP$Q~SYSPEC 000000 
APSK-NAM = 0000000F APSV~CBT = 90000017 
DAP SK PROTPISe = 0900000 APSV~CTG = 00000007 
PAPSKTRELT = 09000019 DAPSV~DF TSPEC = 90000004 
DAPSK~REL = B0000 DAP$V~DIRECTORY = 00000019 
yatta . $8 DAPSV~DIRNAME = 9000000 
een ee = 09 4 DAP$V_DSP_ATT = 44 
- APSVDSP7PRO . 
DAP Sky SUNT NSe = 000000¢ DAPSV~DSP "SUR = 00 0908 
DAPSKTTIAT - D DAPSV~DSP7TIM = 00 
DAPSKZUDF" = 90000000 DAPSV~FILRAME = 99000001 
DAP$L~ALQ1 000004C DAPSV"FILSPEC 


NTOSEARCH 
Symbol table 
DAPSV_FLK 
DAP$V_GEQ_v70 
DAPSV_RCK 
DAPSV_STM_ONLY 
DAPS$V_VOLRAME 


DAPSW_ 
DAPSW_DISPLAY1 
DAPSW_FFB 
DAPSW~LRL 
DAPSW_MRS 
DAPSW~PARTNER 
DAPSW-VERSION 
DIR_NAM 
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NAM 
FWASQ_ 


QUOTED 
FWASV_REMRE SULT 
“NWA_PTR 
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NT 
NTSRMT_ACCFUNC 
NTSSCAR_XABCHN 
NTSSEAR 


NWA$B_NODBUF S 
NWA$B_OR 
NUASB_OS TYPE 
NWASB_RMS_RAC 
NWASC_BLN 
NWASK_BLN 
NWASL_ALLXABADR 
NWASL_DATXABADR 
NWASL 


Vv 
NWASL_FHCXABADR 
NUASL KEYKABADR 


NWASL_SAVE_FLGS 
NWASL_SUMXABADR 
NWASL_ THREAD 


NWASL~ 


NT 
NWASL_XLTMAXINDX 


NWASL-XLTSIZ 


NWASQ-RCV 
NWA$Q_SAVE_ DESC 
NWASQ”XLTBOF 
NWASQ"XLTBUF2 


NWASQ "XM 
NWAST~ACSBUF 


13999 


RRA eee 
Reeeeeee 
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ReETHRERE 
Rees 
0000 

90000000 
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L table -$ 
NWAST_AUXBUF 
NWA AP 


= 
QP 
Sad 
<< 
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o 
e 
= 
“un 


$W_JNLXABJOP 
PARTIAL SUCCESS 000001F 
10$A_TRAC 
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Oooooo 
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PSECT name Allocation PSECT No. Attributes 

» OS , 00000000 ( ) 00 ¢ O.) NOPIC uUSR C AB oe NOEXE NORD NOWRT NOVEC BYTE | 
NF SNE TWORK 0000028D ( 6 

SABSS 00000800 <( 20 02 ¢( 2.) NOPIC USR CON OSHR EXE RD WRT NOVEC BYTE 


$eeeoeeeoeecececcecccccces 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 00 +00: 00.08 90:00:01 13 
Command processing 132 00:0 08-9 00: 9 08-8 
Pass 492 00:00: 9-38 00:01:02.81 
Symbol table sort 0 28838 “9 Bp RO 08 «28 
Pass 2 199 00:00:03.54 00:00:0 83 
Symbol table output 3 00:00:00.28 00:00:00.88 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 816 00:00:28.21 00:01:26.24 


g. ON S LCL N 
oo.) G1 § Yer PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
48.) ABS LCL N 


ite working set Limit was 1650 pages. 
111320 bytes (218 pages) of virtual memory were used to buffer the intermediate c 
There were 110 pages of symbol table space a} Located to hold 2101 non-local and $3° locat symbols. 
source Lines were read in Pass 1, producing 15 object records in Pass 
33 pages of virtual memory were used to define 32° macros. 
| 


$wowweeeweoceeccccccccccccn} 


Macro library name Macros defined 


-$255$DUA28: CRMS.OBJJRMS.MLB; 1 23 
“$255$DUA28: SYSLIBJSTARLET. MLB: 2 5 
TOTALS (all Libraries) 28 


2428 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOSEARCH/OBJ=OBJ$:NTOSEARCH MSRC$:NTOSEARCH/UPDATE=(ENHS:NTOSEARCH) +LIB$:RMS/LIB 
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